home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / epp / pmodules / skiptoedelim.e < prev    next >
Text File  |  1980-01-05  |  512b  |  25 lines
  1. OPT TURBO
  2.  
  3. PROC skipToEDelim(theString:PTR TO CHAR, pos)
  4.   DEF length, c
  5.   /* Finds the next E delimiter in theString and returns its position. */
  6.   length:=StrLen(theString)
  7.   WHILE pos<length
  8.     c:=theString[pos]
  9.     IF ((c>64) AND (c<90))       /* A-Z */
  10.       NOP
  11.     ELSEIF ((c>96) AND (c<123))  /* a-z */
  12.       NOP
  13.     ELSEIF ((c>47) AND (c<58))   /* 0-9 */
  14.       NOP
  15.     ELSEIF c=95  /* underscore */
  16.       NOP
  17.     ELSE
  18.       RETURN pos
  19.     ENDIF
  20.     INC pos
  21.   ENDWHILE
  22. ENDPROC pos
  23.   /* skipToEDelim */
  24.  
  25.